package require http

set f [open history.dat w]

foreach t {yesterday today} {
    set url "http://tclers.tk/conferences/tcl/[clock format [clock scan $t] -format {%Y-%m-%d}].tcl"
    puts "loading history from $url"
    set tkn [http::geturl $url]
    puts $f [http::data $tkn]
    http::cleanup $tkn
}

close $f
